home *** CD-ROM | disk | FTP | other *** search
/ Scene World 6 / Scene_World_06_2003-02-15_POL__PSW_de_Side_B.d64 / trail west (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  73 lines
  1. 1 poke56576,199:poke53272,21:poke53265,155:poke53270,200
  2. 35 :
  3. 36 dv=peek(186)
  4. 40 :
  5. 45 poke53265,peek(53265)and239
  6. 50 poke53280, 5:poke53281,11:print"[147]";chr$(142);
  7. 55 print"[152]esttrailwesttrailwesttrailwestt"
  8. 60 print"ilwesttra[154]O[183][183][183][183][183][183][183][183][183][183][183][183][183]P[152]esttrailwe"
  9. 65 print"trailwes[144]t[146][154][180][153]trailwest[154][167][152]ilwesttrai"
  10. 70 print"westtrail[144] [146][154]L[175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]trailwest"
  11. 75 print"ailwestt[144]rail west trail[146][152]westtrailw"
  12. 80 print"ttrailwesttrailwesttrailwesttra"
  13. 85 print"westt[154]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[152]ailwest"
  14. 90 print"railw[144]e[146][154][180][167][152]ttrail"
  15. 95 print"sttra[144]i[146][154][180]1[155])[153]playgame[154][167][152]westtr"
  16. 100 print"[160]lwest[144] [146][154][180][167][152]railwes"
  17. 105 print"trail[144]w[146][154][180]2[155])[153]readinstructions[154][167][152]sttrail"
  18. 110 print"esttr[144]a[146][154][180][167][152]lwestt"
  19. 115 print"ilwes[144]t[146][154][180]q[155])[153]quitto[150]loadstar[154][167][152]trailwe"
  20. 120 print"trail[144] [146][154][180][167][152]esttrai"
  21. 125 print"westt[144]r[146][154]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]ilwest"
  22. 130 print"ailwe[144]st trail west trail wes[146][152]ttrailw"
  23. 135 print"ttrailwesttrailwesttrailwesttra"
  24. 140 print"westtrailwesttrailwesttrailwest"
  25. 145 print"railwe[154]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[152]ttrail"
  26. 150 print"sttra[144]i[146][154][180][153]pleaseenterchoice[154][170][152]westtr"
  27. 155 print"lwest[144] [146][154]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]railwes"
  28. 160 print"trail[144]west trail west trail w[146][152]esttrail"
  29. 165 print"esttrailwesttrailwesttrailwestt"
  30. 170 poke53265,peek(53265)or16
  31. 175 geta$:ifa$=""then175
  32. 180 ifa$="1"then250
  33. 185 ifa$="2"then220
  34. 190 ifa$="q"then200
  35. 195 goto 175
  36. 200 goto40000
  37. 215 nf$="tw.game":goto225
  38. 220 nf$="tw.inst"
  39. 225 poke53280,5:poke53281,11
  40. 226 print"[147][208]lease wait while loading..."
  41. 230 print"[151]load"chr$(34)nf$chr$(34)","dv",1"
  42. 235 print"run"
  43. 240 poke631,asc(""):poke632,13:poke633,13:poke198,3
  44. 245 end
  45. 250 poke53280, 0:poke53281, 0:print"[147]";
  46. 255 print"NOTICE"
  47. 260 print"[152][163][163][163][163][163][163][163][163][163][163][163]"
  48. 265 print"[154]Once[153]TRAILWEST[154]isloadedyou"
  49. 270 print"willhavetoreboottoreturnto"
  50. 275 print"the[158]LOADSTAR[154]operatingsystem."
  51. 280 print"[152]---"
  52. 285 print"[154]Doyouwishtoload[153]TRAILWEST[154]?"
  53. 290 print"[197]nter[217][152])[154]esor[206][152])[154]o."
  54. 295 geta$:ifa$=""then 295
  55. 300 ifa$="y"ora$="[217]" then 215
  56. 305 ifa$="n"ora$="[206]" then 45
  57. 310 goto 295
  58. 415 print"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"
  59. 425 print"[160]Z[153] press space to continue. [146]Z"
  60. 9999 end
  61. 10000 d=peek(186):n$="trail west":open15,d,15,"s0:"+n$:close15:saven$,d:end
  62. 40000 fori=0to21:poke828+i,8+i:next
  63. 40005 open15,dv,15,"i0":close15
  64. 40010 ifdv<8ordv>29ordv=8then40030
  65. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  66. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  67. 40040 close2:open2,i,2:close2:ifstthen40060
  68. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  69. 40060 next:print"[147]":poke53272,23:poke186,8:end
  70. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  71. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  72. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  73.